Fortran 形参属性

subroutine xxx(arg1, arg2)
  real, intent(in) :: arg1
  real, intent(out) :: arg2